#!/usr/bin/perl

use GDBM_File;

dbmopen(%DB,"$ARGV[0]",0666) || die "Can't open $ARGV[0]";
foreach $key (keys %DB) {
	print $key."\t#DELIM#\t".$DB{$key}."\n";
}
dbmclose(%DB);
